home *** CD-ROM | disk | FTP | other *** search
/ Developer CD Series 1996 May: Tool Chest / Developer CD Series May 1996 (Tool Chest) (Apple Computer) (1996).iso / Tool Chest / Development Tools & Languages / Dylan Related / Mindy / Mindy 1.2 - portable sources / libraries / streams / standard-io.dylan < prev    next >
Encoding:
Text File  |  1995-03-15  |  1.5 KB  |  42 lines  |  [TEXT/ttxt]
  1. module: Standard-io
  2. author: chiles@cs.cmu.edu
  3. synopsis: This file provides some standard I/O stuff.
  4. copyright: See below.
  5. rcs-header: $Header: standard-io.dylan,v 1.6 94/08/23 10:35:15 chiles Exp $
  6.  
  7. //======================================================================
  8. //
  9. // Copyright (c) 1994  Carnegie Mellon University
  10. // All rights reserved.
  11. // 
  12. // Use and copying of this software and preparation of derivative
  13. // works based on this software are permitted, including commercial
  14. // use, provided that the following conditions are observed:
  15. // 
  16. // 1. This copyright notice must be retained in full on any copies
  17. //    and on appropriate parts of any derivative works.
  18. // 2. Documentation (paper or online) accompanying any system that
  19. //    incorporates this software, or any part of it, must acknowledge
  20. //    the contribution of the Gwydion Project at Carnegie Mellon
  21. //    University.
  22. // 
  23. // This software is made available "as is".  Neither the authors nor
  24. // Carnegie Mellon University make any warranty about the software,
  25. // its performance, or its conformity to any specification.
  26. // 
  27. // Bug reports, questions, comments, and suggestions should be sent by
  28. // E-mail to the Internet address "gwydion-bugs@cs.cmu.edu".
  29. //
  30. //======================================================================
  31. //
  32.  
  33.  
  34.  
  35. define constant *standard-input* = make(<fd-stream>, fd: 0);
  36.  
  37. define constant *standard-output*
  38.     = make(<fd-stream>, fd: 1, direction: #"output");
  39.  
  40. define constant *standard-error*
  41.     = make(<fd-stream>, fd: 2, direction: #"output");
  42.